home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / DTRSL.z / DTRSL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. DDDDTTTTRRRRSSSSLLLL((((3333FFFF))))                                                            DDDDTTTTRRRRSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      DTRSL   - DTRSL solves systems of the form
  10.  
  11.         T * X = B or
  12.         TRANS(T) * X = B
  13.  
  14.      where T is a triangular matrix of order N.  Here TRANS(T) denotes the
  15.      transpose of the matrix T.
  16.  
  17.  
  18. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  19.       SUBROUTINE DTRSL(T,LDT,N,B,JOB,INFO)
  20.  
  21. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  22.      On Entry
  23.  
  24.      TTTT DOUBLE PRECISION(LDT,N)
  25.         T contains the matrix of the system.  The zero
  26.         elements of the matrix are not referenced, and
  27.         the corresponding elements of the array can be
  28.         used to store other information.
  29.  
  30.      LLLLDDDDTTTT INTEGER
  31.         LDT is the leading dimension of the array T.
  32.  
  33.      NNNN INTEGER
  34.         N is the order of the system.
  35.  
  36.      BBBB DOUBLE PRECISION(N).
  37.         B contains the right hand side of the system.
  38.  
  39.      JJJJOOOOBBBB INTEGER
  40.         JOB specifies what kind of system is to be solved.
  41.         If JOB is
  42.         00   solve T*X=B, T lower triangular,
  43.         01   solve T*X=B, T upper triangular,
  44.         10   solve TRANS(T)*X=B, T lower triangular,
  45.         11   solve TRANS(T)*X=B, T upper triangular.  On Return
  46.  
  47.      BBBB B contains the solution, if INFO .EQ. 0.
  48.         Otherwise B is unaltered.
  49.  
  50.      IIIINNNNFFFFOOOO INTEGER
  51.         INFO contains zero if the system is nonsingular.
  52.         Otherwise INFO contains the index of
  53.         the first zero diagonal element of T.  LINPACK.  This version dated
  54.      08/14/78 .  G. W. Stewart, University of Maryland, Argonne National Lab.
  55.      Subroutines and Functions BLAS DAXPY,DDOT Fortran MOD
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.